1100
Is it is possible to exclude the non-working days when displaying the histogram using the exBarEffort for exHistOverAllocation type

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.PaneWidth(0) = 40
			.FirstVisibleDate = #6/20/2005#
			.HistogramVisible = True
			.HistogramHeight = 64
			.HistogramView = 112
			With .Bars.Item("Split")
				.Pattern = 6
				.Shape = 18
				.Color = RGB(0,0,128)
			End With
			With .Bars.Add("Task:Split")
				.Color = RGB(0,0,128)
				.Shortcut = "WorkingTask"
				.Pattern = 6
				.HistogramPattern = 6
				.HistogramType = 1
			End With
			With .Bars.Item("Task")
				.Color = RGB(0,0,255)
				.Pattern = 5
				.HistogramType = 1
				.HistogramPattern = 5
			End With
		End With
		With .Items
			h = .AddItem("True")
			.AddBar h,"WorkingTask",#6/23/2005#,#6/29/2005#
			.ItemBar(h,"",21) = 4
			.ItemBar(h,"",20) = True
			h = .AddItem("False")
			.AddBar h,"Task",#6/23/2005#,#6/29/2005#
			.ItemBar(h,"",21) = 4
			.ItemBar(h,"",20) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1099
I display numbers in my chart, but the AddBar requires a date how can I add a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(False) = 0
			.NonworkingDays = 0
			.FirstVisibleDate = 0
			.ToolTip = ""
			With .Level(0)
				.Label = "<%i%>"
				.ToolTip = ""
			End With
			.UnitWidth = 24
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",2,4
			.AddBar .AddItem("Task 2"),"Task",6,10
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1098
I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_DateChange()
	With G2antt1
		.Chart.FirstVisibleDate = 0
		.ScrollPartEnable(2,1024) = False
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.NonworkingDays = 0
			.FirstVisibleDate = 0
			.ToolTip = ""
			With .Level(0)
				.Label = "<%i%>"
				.ToolTip = "<%i%>"
			End With
			.UnitWidth = 24
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1097
How can I display numbers in the chart's header instead dates

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.NonworkingDays = 0
			.FirstVisibleDate = 0
			.ToolTip = ""
			With .Level(0)
				.Label = "<%i%>"
				.ToolTip = ""
			End With
			.UnitWidth = 24
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1096
How can I create a bar that's not sizable, or can not be resized by default similar with milestone
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #12/24/2000#
			.LevelCount = 2
			With .Bars.Add("Custom")
				.Shape = 0
				.StartShape = 1
				.EndShape = 0
			End With
		End With
		With .Items
			.AddBar .AddItem(""),"Custom",#1/2/2001#,#1/2/2001#,"K1","This TYPE of bar can not be resized."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1095
Is it possible to hide the non-working parts for items using the ItemNonworkingUnits, even if set the ShowNonworkingUnits, ShowNonworkingDates on False

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.Bars.Add("Task:Split").Shortcut = "Task"
			.FirstVisibleDate = #12/27/2000#
			.PaneWidth(False) = 64
			.LevelCount = 2
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
			.NonworkingDaysPattern = 0
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.ItemNonworkingUnits(h2,False) = "weekday(value) = 1"
			.AddBar h2,"Task",#1/4/2001#,#1/6/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1094
Is it possible to show the non-working parts for certain items, even if I hide the default non-working part

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.Bars.Add("Task:Split").Shortcut = "Task"
			.FirstVisibleDate = #12/27/2000#
			.PaneWidth(False) = 64
			.LevelCount = 2
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.ItemNonworkingUnits(h2,False) = "weekday(value) = 1"
			.AddBar h2,"Task",#1/4/2001#,#1/6/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1093
How can I hide the non-working part of the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #1/1/2008#
			.PaneWidth(False) = 0
			.LevelCount = 2
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1092
Is it possible to let users selects cells as in Excel
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.FullRowSelect = 1
		.SingleSel = False
		.ReadOnly = -1
		.MarkSearchColumn = False
		.ShowFocusRect = False
		.LinesAtRoot = -1
		.SelForeColor = RGB(0,0,0)
		.SelBackColor = RGB(200,225,242)
		With .Columns
			.Add "A"
			With .Add("B")
				.AllowSizing = False
				.Width = 24
			End With
			With .Add("C")
				.AllowSizing = False
				.Width = 24
				.Def(0) = 1
				.PartialCheck = True
			End With
			With .Add("D")
				.AllowSizing = False
				.Width = 24
				.Def(1) = 1
			End With
		End With
		With .Items
			h = .InsertItem(,,"Group 1")
			h1 = .InsertItem(h,,16)
			.CellValue(h1,1) = 17
			h1 = .InsertItem(h,,2)
			.CellValue(h1,1) = 11
			h1 = .InsertItem(h,,2)
			.ItemBackColor(h1) = RGB(240,240,240)
			.CellValue(h1,1) = 9
			.ExpandItem(h) = True
			h = .InsertItem(,,"Group 2")
			.CellValueFormat(h,2) = 1
			h1 = .InsertItem(h,,16)
			.CellValue(h1,1) = 9
			h1 = .InsertItem(h,,12)
			.CellValue(h1,1) = 11
			h1 = .InsertItem(h,,2)
			.CellValue(h1,1) = 2
			.ExpandItem(h) = True
			.SelectItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1091
How can I hide a date from the chart view
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #1/1/2008#
			.PaneWidth(False) = 0
			.LevelCount = 2
			.AllowInsideZoom = True
			.AllowResizeInsideZoom = False
			.InsideZoomOnDblClick = False
			With .InsideZooms
				.SplitBaseLevel = False
				.DefaultWidth = 0
				.Add #1/4/2008#
				.Add #1/5/2008#
				.Add #1/6/2008#
			End With
			.SelectLevel = 1
			.SelectDate(#1/5/2008#) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1090
Can the SchedulePDM displays and edit the working units for my bars

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item, Key)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Items.AllowCellValueToItemBar = True
		.Columns.Add "Task"
		With .Columns.Add("Working")
			.Def(18) = 258
			.Editor.EditType = 4
		End With
		With .Chart
			.Bars.Add("Task:Split").Shortcut = "Task"
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.AllowLinkBars = False
			.AllowCreateBar = 0
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,""
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,""
			.AddLink "L1",h1,"",h2,""
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,""
			.AddLink "L2",h2,"",h3,""
			.Link("L2",12) = "FF"
			.Link("L2",6) = 2
			.Link("L2",7) = 2
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,""
			.AddLink "L3",h4,"",h3,""
			.ItemBar(0,"<*>",20) = True
			.SchedulePDM .FirstVisibleItem,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1089
Can the SchedulePDM displays the working units for my bars
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item, Key)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Items.AllowCellValueToItemBar = True
		.Columns.Add "Task"
		.Columns.Add("Working").Def(18) = 258
		With .Chart
			.Bars.Add("Task:Split").Shortcut = "Task"
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.AllowLinkBars = False
			.AllowCreateBar = 0
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,""
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,""
			.AddLink "L1",h1,"",h2,""
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,""
			.AddLink "L2",h2,"",h3,""
			.Link("L2",12) = "FF"
			.Link("L2",6) = 2
			.Link("L2",7) = 2
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,""
			.AddLink "L3",h4,"",h3,""
			.ItemBar(0,"<*>",20) = True
			.SchedulePDM .FirstVisibleItem,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1088
Can the SchedulePDM keeps the working units for my bars
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item, Key)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.Bars.Add("Task:Split").Shortcut = "Task"
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 48
			.AllowLinkBars = False
			.AllowCreateBar = 0
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "FF"
			.Link("L2",6) = 2
			.Link("L2",7) = 2
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,"K4"
			.AddLink "L3",h4,"K4",h3,"K3"
			.ItemBar(0,"<*>",20) = True
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1087
How can I arrange automatically the bars based on their links as soon as user moves the bars
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item, Key)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 48
			.AllowLinkBars = False
			.AllowCreateBar = 0
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "FF"
			.Link("L2",6) = 2
			.Link("L2",7) = 2
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,"K4"
			.AddLink "L3",h4,"K4",h3,"K3"
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1086
How can I arrange automatically the bars based on their links as soon as user moves the bars
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResize(Item, Key)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
			.AllowLinkBars = False
			.AllowCreateBar = 0
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1085
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ScrollButtonClick(ScrollBar, ScrollPart)
	With G2antt1
		alert( ScrollBar )
		alert( ScrollPart )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.ScrollPartVisible(1,32768) = True
		.ScrollPartVisible(1,16384) = True
		.ScrollPartVisible(1,1) = True
		.ScrollPartVisible(1,2) = True
		.ScrollBars = 5
	End With
End Function
</SCRIPT>
</BODY>
1084
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AnchorClick(AnchorID, Options)
	With G2antt1
		alert( AnchorID )
		alert( Options )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add("Default").Def(17) = 1
		With .Items
			.AddItem "This is a link: <aex.com;1>www.exontrol.com</a>"
			.AddItem "This is a link: <aex.net;2>www.exontrol.net</a>"
		End With
	End With
End Function
</SCRIPT>
</BODY>
1083
Is it possible to start editing a cell when double click it
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_DblClick(Shift, X, Y)
	With G2antt1
		.Edit 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.AutoEdit = False
		.MarkSearchColumn = False
		.Columns.Add("Edit1").Editor.EditType = 1
		.Columns.Add("Edit2").Editor.EditType = 1
		With .Items
			.CellValue(.AddItem(1),1) = 2
		End With
		With .Items
			.CellValue(.AddItem(3),1) = 4
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1082
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_DblClick(Shift, X, Y)
	With G2antt1
		.Edit 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.AutoEdit = False
		.MarkSearchColumn = False
		.Columns.Add("Edit1").Editor.EditType = 1
		.Columns.Add("Edit2").Editor.EditType = 1
		With .Items
			.CellValue(.AddItem(1),1) = 2
		End With
		With .Items
			.CellValue(.AddItem(3),1) = 4
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1081
How can I get or restore the old or previously value for the cell being changed
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item, ColIndex, NewValue)
	With G2antt1
		alert( "Old-Value:" )
		alert( .Items.CellValue(Item,ColIndex) )
		alert( "New-Value:" )
		alert( NewValue )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		.Columns.Add("Edit1").Editor.EditType = 1
		.Columns.Add("Edit2").Editor.EditType = 1
		With .Items
			.CellValue(.AddItem(1),1) = 2
		End With
		With .Items
			.CellValue(.AddItem(3),1) = 4
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1080
How can I display the number of items being found after filtering
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_FilterChange()
	With G2antt1
		.FilterBarCaption = .Items.VisibleCount
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 1
		.FilterBarPromptPattern = "london"
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1079
How can I highligth the item from the cursor as it moves
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button, Shift, X, Y)
	With G2antt1
		.BeginUpdate 
		h = .ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ClearItemBackColor G2antt1.Background(1000) ' &H200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition
			.ItemBackColor(h) = RGB(240,250,240)
		End With
		.Background(1000) = h ' &H200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition
		.EndUpdate 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.DrawGridLines = 1
		.SelBackColor = RGB(240,250,240)
		.SelForeColor = RGB(0,0,0)
		.ShowFocusRect = False
		With .Chart
			.SelBackColor = RGB(240,250,240)
		End With
		.Columns.Add "Items"
		With .Items
			h = .AddItem("R1")
			.InsertItem h,,"Cell 1.1"
			.InsertItem h,,"Cell 1.2"
			.ExpandItem(h) = True
			h = .AddItem("R2")
			.InsertItem h,,"Cell 2.1"
			.InsertItem h,,"Cell 2.2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1078
How can I get the item from the cursor
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button, Shift, X, Y)
	With G2antt1
		h = .ItemFromPoint(-1,-1,c,hit)
		alert( "Handle" )
		alert( h )
		alert( "Index" )
		alert( .Items.ItemToIndex(h) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.DrawGridLines = 1
		.Columns.Add "Items"
		With .Items
			h = .AddItem("R1")
			.InsertItem h,,"Cell 1.1"
			.InsertItem h,,"Cell 1.2"
			.ExpandItem(h) = True
			h = .AddItem("R2")
			.InsertItem h,,"Cell 2.1"
			.InsertItem h,,"Cell 2.2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1077
How can I get the column from the cursor, not only in the header
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button, Shift, X, Y)
	With G2antt1
		alert( .ColumnFromPoint(-1,0) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Columns.Add "P1"
		.Columns.Add "P2"
		.DrawGridLines = -1
		With .Items
			h = .AddItem("R1")
			.CellValue(h,1) = "R2"
			.CellValue(.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2"
			.CellValue(.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1076
How can I get the column from the cursor
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button, Shift, X, Y)
	With G2antt1
		alert( .ColumnFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.DrawGridLines = -1
		.Columns.Add "P1"
		.Columns.Add "P2"
		With .Items
			h = .AddItem("R1")
			.CellValue(h,1) = "R2"
			.CellValue(.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2"
			.CellValue(.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1075
How can I get the cell's caption from the cursor
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button, Shift, X, Y)
	With G2antt1
		h = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.CellCaption(h,c) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Columns.Add "Items"
		With .Items
			h = .AddItem("R1")
			.InsertItem h,,"Cell 1.1"
			.InsertItem h,,"Cell 1.2"
			.ExpandItem(h) = True
			h = .AddItem("R2")
			.InsertItem h,,"Cell 2.1"
			.InsertItem h,,"Cell 2.2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1074
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = -1
		.GridLineStyle = 33 ' GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDot4
		.Columns.Add "C1"
		.Columns.Add "C2"
		.Columns.Add "C3"
		With .Items
			h = .AddItem("Item 1")
			.CellValue(h,1) = "SubItem 1.2"
			.CellValue(h,2) = "SubItem 1.3"
			h = .AddItem("Item 2")
			.CellValue(h,1) = "SubItem 2.2"
			.CellValue(h,2) = "SubItem 2.3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1073
How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = -1
		.GridLineColor = RGB(220,220,220)
		With .Chart
			.PaneWidth(0) = 48
			.FirstVisibleDate = #1/1/2001#
			.DrawGridLines = -1
			.GridLineStyle = 256
			.LevelCount = 2
			With .Level(1)
				.DrawGridLines = True
				.GridLineColor = RGB(220,220,220)
			End With
			With .Bars.Item("Task")
				.Pattern = 1
				.Height = 14
			End With
		End With
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
			.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1072
Is it possible to change the style for the vertical grid lines, in the chart area only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = -1
		.GridLineStyle = 12
		With .Chart
			.PaneWidth(0) = 48
			.FirstVisibleDate = #1/1/2001#
			.DrawGridLines = -1
			.GridLineStyle = 12
			.LevelCount = 2
			.Level(1).DrawGridLines = True
			With .Level(0)
				.GridLineColor = RGB(255,0,0)
				.GridLineStyle = 32
			End With
			.Bars.Item("Task").Pattern = 1
		End With
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
			.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1071
Is it possible to change the style for the grid lines, for instance to be solid not dotted

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = -1
		.GridLineStyle = 48
		With .Chart
			.PaneWidth(0) = 48
			.FirstVisibleDate = #1/1/2001#
			.DrawGridLines = -1
			.GridLineStyle = 48
			.LevelCount = 2
			.Level(1).DrawGridLines = True
			.Bars.Item("Task").Pattern = 1
		End With
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
			.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1070
How can I show the grid lines for the chart and list area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.DrawGridLines = -1
		With .Chart
			.PaneWidth(0) = 48
			.FirstVisibleDate = #1/1/2001#
			.DrawGridLines = -1
			.LevelCount = 2
			.Level(1).DrawGridLines = True
			.Bars.Item("Task").Pattern = 1
		End With
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
			.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
		End With
	End With
End Function
</SCRIPT>
</BODY>
1069
In the level of the chart we are showing the week number of the year (1-53) (Week: ww). However the weeknumber isn't correct. In western Europe the week of 04/01/2010 till 10/01/2010 is weeknumber 1, however the g2antt says it's week 2

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #12/28/2009#
			.LevelCount = 2
			.Level(0).Label = "Week: <%ww%>/<%yyyy%>"
			.FirstWeekDay = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>
1068
How can I determine the current visible date range of the gantt chart area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/6/2001#
			.AddBar .AddItem("Task 2"),"Task",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 3"),"Task",#1/4/2001#,#1/8/2001#
			.AddBar .AddItem("Task 4"),"Task",#1/6/2001#,#1/10/2001#
		End With
		alert( .Chart.StartPrintDate )
		alert( .Chart.EndPrintDate )
	End With
End Function
</SCRIPT>
</BODY>
1067
How can I change the progress bar using a spin editor using values from 0 to 100

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Items.AllowCellValueToItemBar = True
		With .Columns
			.Add "Task"
			With .Add("Percent")
				.Editor.EditType = 4
				.Def(18) = 518
			End With
		End With
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.Bars.Add "Task%Progress"
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task%Progress",#1/2/2001#,#1/6/2001#
			.CellValue(h,1) = 40
			h = .AddItem("Task 2")
			.AddBar h,"Task%Progress",#1/2/2001#,#1/6/2001#
			.CellValue(h,1) = 50
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1066
Is it possible to display the histogram for selected bars only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.PaneWidth(False) = 64
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramView = 8
			.HistogramHeight = 32
			.Bars.Item("Task").HistogramPattern = 6
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#,1
			.AddBar .AddItem("Item 2"),"Task",#1/4/2001#,#1/7/2001#,2
			.AddBar .AddItem("Item 3"),"Task",#1/2/2001#,#1/6/2001#,3
			.ItemBar(0,2,257) = True
			.ItemBar(0,3,257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1065
How can I fix a bar, so it is not selectable, moveable or resizable, fixed in other words
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/8/2001#,"K1","Unselectable"
			.ItemBar(h1,"K1",29) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1064
How can I fix a bar, so it is not moveable or resizable
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1","Fixed"
			.ItemBar(h1,"K1",10) = False
			.ItemBar(h1,"K1",11) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1063
Is is possible to fix a bar during PDM scheduling
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"TaskF",#1/2/2001#,#1/4/2001#,"K1"
			.ItemBar(h1,"K1",10) = False
			.ItemBar(h1,"K1",11) = False
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"TaskF",#1/2/2001#,#1/4/2001#,"K3"
			.ItemBar(h3,"K3",10) = False
			.ItemBar(h3,"K3",11) = False
			.AddLink "L2",h2,"K2",h3,"K3"
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1062
How can I specify that during scheduling the link, bars should be delayed, on working part

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.Bars.Add("Task:Split").Shortcut = "Task"
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/1/2001#,#1/3/2001#,"K1"
			.ItemBar(h1,"K1",20) = True
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
			.ItemBar(h2,"K2",20) = True
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "FS"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.ItemBar(h3,"K3",20) = True
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "link delays the bars<br>for <b>2</b> working days"
			.Link("L2",16) = 2
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1061
How can I specify that during scheduling the link, bars should be delayed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.ShowNonworkingDates = False
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "FS"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "   Finish-Start<br>delayed <b>4</b> days"
			.Link("L2",17) = 4
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1060
The SchedulePDM method put the bars on non-working part, how can I prevent that

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.Bars.Add("Task:Split").Shortcut = "Task"
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			.ItemBar(h1,"K1",20) = True
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
			.ItemBar(h2,"K2",20) = True
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "FS"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.ItemBar(h3,"K3",20) = True
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "FS"
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1059
How can I add a SF (Start-Finish) link so activities get arranged using the SchedulePDM

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "FS"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "SF"
			.Link("L2",6) = 0
			.Link("L2",7) = 2
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1058
How can I add a SS (Start-Start) link so activities get arranged using the SchedulePDM

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "FS"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "SS"
			.Link("L2",6) = 0
			.Link("L2",7) = 0
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1057
How can I add a FF (Finish-Finish) link so activities get arranged using the SchedulePDM

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "FS"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "FF"
			.Link("L2",6) = 2
			.Link("L2",7) = 2
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1056
How can I add a FS (Finish-Start) link so activities get arranged using the SchedulePDM

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "FS"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "FS"
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1055
How can I schedule activities in the project plan
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.AddLink "L2",h3,"K3",h2,"K2"
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1054
How do I arrange the bars based on the links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1053
Is is possible to use HTML tags to display in the filter caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.FilterBarPromptVisible = True ' True
		.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
		.Columns.Add ""
		With .Items
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1052
How can I find the number of items after filtering
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add ""
		With .Items
			h = .AddItem("")
			.CellValue(h,0) = .VisibleItemCount
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1051
How can I change the filter caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 12801 ' FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll
		.FilterBarPromptPattern = "london robert"
		.FilterBarCaption = "<r>Found: ... "
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1050
While using the filter prompt is it is possible to use wild characters
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 16
		.FilterBarPromptPattern = "lon* seat*"
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1049
How can I list all items that contains any of specified words, not necessary at the beggining
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 4610 ' FilterPromptEnum.exFilterPromptStartWords Or FilterPromptEnum.exFilterPromptContainsAny
		.FilterBarPromptPattern = "london davolio"
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1048
How can I list all items that contains any of specified words, not strings
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.Chart.PaneWidth(True) = 0
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 12802 ' FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAny
		.FilterBarPromptPattern = "london nancy"
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1047
How can I list all items that contains all specified words, not strings
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 12801 ' FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll
		.FilterBarPromptPattern = "london robert"
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1046
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 258 ' FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAny
		.FilterBarPromptPattern = "Anne"
		.Chart.PaneWidth(True) = 0
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1045
Is it possible to list only items that ends with any of specified strings
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 4
		.FilterBarPromptColumns = "0"
		.FilterBarPromptPattern = "Fuller"
		.Chart.PaneWidth(True) = 0
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1044
Is it possible to list only items that ends with any of specified strings
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 4
		.FilterBarPromptColumns = "0"
		.FilterBarPromptPattern = "Fuller"
		.Chart.PaneWidth(True) = 0
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1043
Is it possible to list only items that starts with any of specified strings
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 3
		.FilterBarPromptColumns = "0"
		.FilterBarPromptPattern = "An M"
		.Chart.PaneWidth(True) = 0
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1042
Is it possible to list only items that starts with specified string
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 3
		.FilterBarPromptColumns = "0"
		.FilterBarPromptPattern = "A"
		.Chart.PaneWidth(True) = 0
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1041
How can I specify that the list should include any of the seqeunces in the pattern
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 2
		.FilterBarPromptPattern = "london seattle"
		.Chart.PaneWidth(True) = 0
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1040
How can I specify that all sequences in the filter pattern must be included in the list
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptType = 1
		.FilterBarPromptPattern = "london manager"
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1039
How do I change at runtime the filter prompt
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.Chart.PaneWidth(True) = 0
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptPattern = "london manager"
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1038
How do I specify to filter only a single column when using the filter prompt
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.Chart.PaneWidth(True) = 0
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptColumns = "2,3"
		.FilterBarPromptPattern = "london"
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1037
How do I change the prompt or the caption being displayed in the filter bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		.FilterBarPrompt = "changed"
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1036
How do I enable the filter prompt feature

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.FocusColumnIndex = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = True ' True
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1035
How can I unselect all bars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K2"
			.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3"
			.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
			.ItemBar(0,"<*>",257) = True
			.ItemBar(0,"<*>",257) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
1034
Can I select bars using a pattern using wild characters as *,

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
			.ShowNonworkingDates = False
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1K","K1K"
			.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2M","K2M"
			.AddBar h,"Task",#1/9/2001#,#1/11/2001#,"K3K","K3K"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
			.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
			.ItemBar(0,"<K*K>",257) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
1033
How can I select all bars in the item with a specified key

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.PaneWidth(False) = 48
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
			.AddBar h,"Task",#1/9/2001#,#1/11/2001#,"P","P"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
			.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
			.ItemBar(h,"<K*>",257) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
1032
How can I select all bars in the specified item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.PaneWidth(False) = 48
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
			.AddBar h,"Task",#1/9/2001#,#1/11/2001#,"P","P"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
			.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
			.ItemBar(h,"<*>",257) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
1031
How can I select all bars with a specified key

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.PaneWidth(False) = 48
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
			.AddBar h,"Task",#1/8/2001#,#1/10/2001#,"P","P"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
			.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"P","P"
			.ItemBar(0,"<P>",257) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
1030
How can I select all bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.PaneWidth(False) = 48
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
			.AddBar h,"Task",#1/8/2001#,#1/10/2001#,"P","P"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
			.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
			.ItemBar(0,"<*>",257) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
1029
I have the AllowInsideZoom property on True, but I am still not able to use the inside zoom feature

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(0) = 0
			.LevelCount = 3
			.FirstWeekDay = 1
			.Level(0).Label = "Week: <%ww%>"
			With .Level(1)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			.Level(2).Label = 65536
			.NonworkingHours = 16773375
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
			.ShowNonworkingHours = False
			.AllowInsideZoom = True
			With .DefaultInsideZoomFormat
				.InsideUnit = 1048576
				.InsideLabel = "<b><%nn%></b>"
			End With
			.InsideZooms.Add #1/1/2001 10:00:00 AM#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1028
Is there any option to find out if two bars intersects

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "InterectBars"
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.Bars.Item("Task").OverlaidType = 1
		End With
		With .Items
			h = .AddItem("")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A","A"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"B","B"
			.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
			h = .AddItem("")
			.AddBar h,"Task",#1/6/2001#,#1/9/2001#,"A","A"
			.AddBar h,"Task",#1/10/2001#,#1/13/2001#,"B","B"
			.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
			h = .AddItem("")
			.AddBar h,"Task",#1/6/2001#,#1/9/2001#,"B","B"
			.AddBar h,"Task",#1/10/2001#,#1/13/2001#,"A","A"
			.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1027
How can I find if a specified hour is a working or non-working hour, when using the ItemNonWorkingUnits

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add("Hour").FormatColumn = "hour(value)"
		.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(0) = 164
			.FirstWeekDay = 1
			.LevelCount = 2
			.UnitScale = 65536
			.NonworkingHours = 1
		End With
		With .Items
			h = .AddItem(#1/1/2001#)
			w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
			.CellValue(h,1) = w
			h = .AddItem(#1/1/2001#)
			.ItemNonworkingUnits(h,False) = "hour(value) >0 "
			w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0),h)
			.CellValue(h,1) = w
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1026
How can I find if a specified hour is a working or non-working hour
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add("Hour").FormatColumn = "hour(value)"
		.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(0) = 164
			.FirstWeekDay = 1
			.LevelCount = 2
			.UnitScale = 65536
			.NonworkingHours = 1
		End With
		With .Items
			h = .AddItem(#1/1/2001#)
			w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
			.CellValue(h,1) = w
			h = .AddItem(#1/1/2001 1:00:00 AM#)
			w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
			.CellValue(h,1) = w
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1025
How can I find if a specified date-time is a working or non-working unit, when using the ItemNonWorkingUnits
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add("Date").Width = 48
		.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(0) = 128
			.FirstWeekDay = 1
			.LevelCount = 2
		End With
		With .Items
			h = .AddItem(#1/1/2001#)
			w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
			.CellValue(h,1) = w
			h = .AddItem(#1/1/2001#)
			.ItemNonworkingUnits(h,False) = "weekday(value) in (1)"
			w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0),h)
			.CellValue(h,1) = w
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1024
How can I find if a specified date-time is a working or non-working unit
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add("Date").Width = 48
		.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(0) = 128
			.FirstWeekDay = 1
			.LevelCount = 2
		End With
		With .Items
			h = .AddItem(#1/1/2001#)
			w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
			.CellValue(h,1) = w
			h = .AddItem(#1/6/2001#)
			w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
			.CellValue(h,1) = w
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1023
When zooming to days, the non-working part of the chart occupies some not useful space. Can I reduce it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/3/2002#
			.Bars.Add("Task:Split").Shortcut = "Task"
			.LevelCount = 2
			.DrawGridLines = -1
			.FirstWeekDay = 1
			.Level(0).Label = "Week: <%ww%>"
			With .Level(1)
				.Label = "<%d%>/<%m2%>"
				.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
			End With
			.UnitWidth = 32
			.UnitWidthNonworking = -32
		End With
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Default")
			.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1022
My chart display only working hours, but when zooming to days, each day shows the non-working part of the day too, even if I use the ShowNonWorkingUnits property on False. What am I doing wrong

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/3/2002 10:00:00 AM#
			.Bars.Add("Task:Split").Shortcut = "Task"
			.LevelCount = 2
			.DrawGridLines = -1
			.FirstWeekDay = 1
			.Level(0).Label = "<%ww%>"
			With .Level(1)
				.Label = "<%dd%>"
				.Unit = 65536
				.Count = 24
			End With
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingHours = False
			.UnitWidth = 32
		End With
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Default")
			.AddBar h,"Task",#1/4/2002 10:00:00 AM#,#1/8/2002 2:00:00 AM#,"A"
			.ItemBar(h,"A",20) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1021
I need to display only working hours and weekend part, but for some items I need another non-working part. Is this possible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/3/2002#
			.Bars.Add("Task:Split").Shortcut = "Task"
			.LevelCount = 2
			.DrawGridLines = -1
			With .Level(0)
				.Label = "<%ddd%>"
				.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
			End With
			With .Level(1)
				.Label = 65536
				.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
			End With
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingHours = False
			.UnitWidthNonworking = -24
		End With
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Default")
			.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
			.ItemBar(h,"A",20) = True
			h = .AddItem("Friday")
			.AddBar h,"Task",#1/3/2002#,#1/7/2002 0:00:00 PM#,"A"
			.ItemBar(h,"A",20) = True
			.ItemNonworkingUnits(h,False) = "weekday(value) in (0,6,5) or hour(value)<10 or hour(value)>=14"
			h = .AddItem("Till 13")
			.AddBar h,"Task",#1/4/2002#,#1/7/2002 0:00:00 PM#,"A"
			.ItemBar(h,"A",20) = True
			.ItemNonworkingUnits(h,False) = "weekday(value) in (0,6) or hour(value)<10 or hour(value)>=13"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1020
I can display the working hours, but how can I hide the weekend or non-working part of the chart when using the ShowNonWorkingUnits property on False

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #1/3/2002#
			.LevelCount = 2
			.Level(0).Label = "<%ddd%>"
			.Level(1).Label = 65536
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
			.ShowNonworkingHours = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
1019
How can I display only the working hours but uses less space for non-working part, such as weekend

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #1/3/2002#
			.LevelCount = 2
			With .Level(0)
				.Label = "<%ddd%>"
				.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
			End With
			With .Level(1)
				.Label = 65536
				.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
			End With
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingHours = False
			.UnitWidthNonworking = -24
		End With
	End With
End Function
</SCRIPT>
</BODY>
1018
How can I display only the working hours but uses less space for non-working part, such as weekend

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #1/3/2002#
			.LevelCount = 2
			.Level(0).Label = "<%ddd%>"
			With .Level(1)
				.Label = 65536
				.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
			End With
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingHours = False
			.UnitWidthNonworking = 8
		End With
	End With
End Function
</SCRIPT>
</BODY>
1017
How can I display only the working hours

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #1/3/2002#
			.LevelCount = 2
			.Level(0).Label = "<%ddd%>"
			.Level(1).Label = 65536
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingHours = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
1016
How can I specify non-working hours

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #1/3/2002#
			.LevelCount = 2
			.Level(0).Label = "<%ddd%>"
			.Level(1).Label = 65536
			.NonworkingHours = 16761855
		End With
	End With
End Function
</SCRIPT>
</BODY>
1015
How can I display the working hours for a bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Columns
			.Add "Tasks"
			With .Add("Working")
				.Def(18) = 258
				.Def(19) = "A"
				.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
			End With
		End With
		.Items.AllowCellValueToItemBar = True
		With .Chart
			.PaneWidth(False) = 96
			.Bars.Add("Task:Split").Shortcut = "Task"
			.FirstVisibleDate = #1/3/2002#
			.LevelCount = 2
			.Level(0).Label = "<%ddd%>"
			.Level(1).Label = "<%hh%>"
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingHours = False
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
			.ItemBar(h,"A",20) = True
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/3/2002#,#1/4/2002#,"A"
			.ItemBar(h,"A",20) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1014
Is it possible to show only working hours, showing a small part for the weekend days, and in the same time showing the bars by splitting the non-working part and keeping the working units for the bar while moving

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.Bars.Add("Task:Split").Shortcut = "Task"
			.FirstVisibleDate = #1/3/2002#
			.DrawGridLines = -1
			.GridLineStyle = 512
			.PaneWidth(0) = 0
			.LevelCount = 2
			With .Level(0)
				.Label = "<%ddd%>"
				.Alignment = 1
				.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
			End With
			With .Level(1)
				.Label = 65536
				.DrawGridLines = -1
				.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
			End With
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = True
			.ShowNonworkingHours = False
			.UnitWidthNonworking = -40
		End With
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
			.ItemBar(h,"A",20) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1013
How can I show bars with different solid color but black border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackbox.ebn"
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Chart.Bars.Item("Task")
			.Color = &H1000000
			.Height = 15
		End With
		.Chart.PaneWidth(False) = 0
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#,""
			.ItemBar(h,"",33) = 65535
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#,""
			.ItemBar(h,"",33) = 255
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1012
I want to display a vertical line for each week, while I still need a vertical separator for each day. Is this possible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.GridLineColor = RGB(240,240,240)
		With .Chart
			.PaneWidth(False) = 0
			.DrawGridLines = -1
			.NonworkingDays = 0
			.LevelCount = 2
			With .Level(0)
				.DrawGridLines = True
				.GridLineColor = RGB(0,0,0)
			End With
			With .Level(1)
				.DrawGridLines = True
				.GridLineColor = RGB(240,240,240)
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>
1011
How can I display the levels as year, day, AM and PM for each day
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #12/1/2009#
			.UnitWidth = 22
			.LevelCount = 3
			.Level(0).Label = "<%yyyy%>"
			.Level(1).Label = "<%mm%>/<%dd%>"
			With .Level(2)
				.Label = "<%AM/PM%>"
				.Count = 12
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>
1010
How can I change the pattern for a specified time unit, in the chart area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2008#
			.AllowInsideZoom = True
			.AllowResizeInsideZoom = False
			.InsideZoomOnDblClick = False
			With .DefaultInsideZoomFormat
				.PatternChart = 6
				.PatternColorChart = RGB(255,0,0)
			End With
			With .InsideZooms
				.SplitBaseLevel = False
				.DefaultWidth = 18
				.Add(#1/4/2008#).AllowInsideFormat = False
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1009
How can I hide the non-working hours, but still display the non-working days with even less space

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #11/19/2009#
			.DrawGridLines = -1
			.GridLineStyle = 512
			.PaneWidth(0) = 0
			.LevelCount = 2
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
				.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
			End With
			With .Level(1)
				.Label = 65536
				.DrawGridLines = -1
				.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
			End With
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = True
			.ShowNonworkingHours = False
			.UnitWidth = 32
			.UnitWidthNonworking = -32
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1008
How can I hide the non-working hours, but still display the non-working days with less space

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #11/19/2009#
			.DrawGridLines = -1
			.GridLineStyle = 512
			.PaneWidth(0) = 0
			.LevelCount = 2
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
				.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
			End With
			With .Level(1)
				.Label = 65536
				.DrawGridLines = -1
				.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
			End With
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = True
			.ShowNonworkingHours = False
			.UnitWidth = 32
			.UnitWidthNonworking = 12
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1007
How can I hide the non-working hours, but still display the non-working days

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #11/19/2009#
			.DrawGridLines = -1
			.GridLineStyle = 512
			.PaneWidth(0) = 0
			.LevelCount = 2
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			With .Level(1)
				.Label = 65536
				.DrawGridLines = -1
			End With
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = True
			.ShowNonworkingHours = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1006
How can I hide the non-working hours, and the non-working days

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #11/19/2009#
			.DrawGridLines = -1
			.GridLineStyle = 512
			.PaneWidth(0) = 0
			.LevelCount = 2
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			With .Level(1)
				.Label = 65536
				.DrawGridLines = -1
			End With
			.NonworkingHours = 16761855
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
			.ShowNonworkingHours = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1005
Can I highlights the non-working hours while my chart shows days

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #1/1/2001#
			.UnitWidth = 48
			.LevelCount = 2
			With .Level(1)
				.Label = "<%d%>"
				.Unit = 65536
				.Count = 24
			End With
			.NonworkingHours = 127
		End With
	End With
End Function
</SCRIPT>
</BODY>
1004
How can I reduce the space/area being occupied by non-working units days or hours (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstWeekDay = 1
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 64
			.UnitWidthNonworking = -8
			.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '.' : value"
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
			.AddBar h,"Task",#1/5/2001#,#1/6/2001#,"K2"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3"
			.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
			.ItemBar(h,"<*>",33) = 255
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1003
How can I reduce the space/area being occupied by non-working units days or hours (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstWeekDay = 1
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 64
			.UnitWidthNonworking = 4
			.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
			.AddBar h,"Task",#1/5/2001#,#1/6/2001#,"K2"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3"
			.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
			.ItemBar(h,"<*>",33) = 255
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1002
How can I hide the non-working units

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstWeekDay = 1
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 64
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
			.DrawGridLines = 2
			.Level(0).DrawGridLines = True
			.GridLineStyle = 512
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
			.AddBar h,"Task",#1/5/2001#,#1/6/2001#,"K2"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3"
			.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
			.ItemBar(h,"<*>",33) = 255
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1001
How can I determine that a certain bar is the topmost (zorder)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #12/27/2000#
			.Bars.Item("Task").Pattern = 1
		End With
		With .Items
			h = .AddItem("B in front")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"A"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"B","<fgcolor=FF0000>B</fgcolor>"
			.ItemBar(h,"B",18) = -2
			.ItemBar(h,"B",4) = 18
			.ItemBar(h,"B",33) = 255
			h = .AddItem("A in back")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"A","<fgcolor=FF0000>A</fgcolor>"
			.ItemBar(h,"A",18) = -2
			.ItemBar(h,"A",4) = 18
			.ItemBar(h,"A",33) = 255
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>